CREATE OR REPLACE FUNCTION data_a_any
(
	data IN DATE
)
RETURN VARCHAR2
AS
	v_any VARCHAR2(255) := to_char(data, 'yyyy');
BEGIN
	return v_any;
END data_a_any;
/